10 POKE53281,6:POKE53280,6:PRINT"[147][158]          MATHEMATIKPROGRAMME"
20 PRINT"          ==================="
30 PRINT" 1 - EUKLIDISCHER ALGORITHMUS"
40 PRINT" 2 - DREIECKSFLAECHE"
50 PRINT" 3 - QUADRATISCHE GLEICHUNG"
60 PRINT" 4 - FAKULTAET"
70 PRINT" 5 - BINOMIALKOEFFIZIENT"
80 PRINT" 6 - KARTESISCHE -> POLARKOORDINATEN"
90 PRINT" 7 - PRIMFAKTOREN"
100 PRINT" 8 - PROGRAMMENDE"
110 PRINT"        WAEHLEN SIE BITTE !"
120 GETI$:IFI$=""THEN120
130 I=VAL(I$):IFI<1ORI>8THEN120
140 IFI=8THENPRINT"[147]":PRINT"   TSCHUESS !":PRINT"":END
150 ONIGOTO170,360,470,750,860,1020,1220
160 :
170 PRINT"[147]      EUKLIDISCHER ALGORITHMUS"
180 PRINT"      ************************
190 [133]"  ZAHLEN A,B";A,B
200 [139]A[177]B[167]240
210 Z[178]A
220 A[178]B
230 B[178]Z
240 M[178]A
250 N[178]B
260 [139]M[178]0[167]310
270 R[178]N[171][181](N[173]M)[172]M
280 N[178]M
290 M[178]R
300 [137]260
310 [153]" ->GR. GEM. TEILER=";N:[153]
320 [153]" ->KL. GEM. VIELFACHES=";A[172]B[173]N
330 [153]" 1 - WEITER   2 - MENUE"
340 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]340
350 K[178][197](X$):[145]K[137]170,10
360 [153]"LOAD           DREIECKSFLAECHE"
370 [153]"         ================"
380 [133]"  SEITE A=";A
390 [133]"  SEITE B=";B
400 [133]"  SEITE C=";C
410 S[178](A[170]B[170]C)[173]2:[139]S[178]0[167][128]
420 F[178][186](S[172](S[171]A)[172](S[171]B)[172](S[171]C))
430 [153]"  FLAECHE DES DREIECKS =";F
440 [153]" 1 - WEITER   2 - MENUE"
450 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]450
460 K[178][197](X$):[145]K[137]360,10
470 [153]"LOAD       QUADRATISCHE GLEICHUNG"
480 [153]"       ======================"
490 [153]"          VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
500 [153]"          (null) A*X^2+B*X+C=0 (null)"
510 [153]"          (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
520 [133]"KOEFFIZIENTEN A, B, C ";A,B,C
530 [139]A[179][177]0[167]610
540 [139]B[179][177]0[167]580
550 [139]C[178]0[167][153]"EINGABEFEHLER !":[137]490
580 X[178][171]C[173]B
590 [153]"LINEARE GLEICHUNG: X=";X
600 [137]720
610 U[178]B[173](2[172]A)
620 D[178]U[172]U[171]C
630 V[178][186]([182](D))
640 [139]D[179]0[167]700
650 X1[178][171]U[170]V
660 X2[178][171]U[171]V
670 [153]"LOESUNGEN:   X1=";X1
680 [153][163]13);"X2=";X2
690 [137]720
700 [153]"LOESUNGEN:   X1=";[171]U;"+";V;"I"
710 [153][163]13);"X2=";[171]U;"-";V;"I"
720 [153]" 1 - WEITER   2 - MENUE"
730 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]730
740 K[178][197](X$):[145]K[137]470,10
750 [153]"LOAD           FAKULTAET"
760 [153]"           ========="
770 [133]"  NATUERLICHE ZAHL";N
775 [139]N[177]33[167][153]"ZU GROSS!":[137]770
780 F[178]1:[139]N[178]0[176]N[178]1[167]810
790 I[178]1
800 F[178]F[172]I:I[178]I[170]1:[139]I[179][178]N[167]800
810 [153]"  ->";N;[199](8);"!=";F
820 [153]" 1 - WEITER   2 - MENUE"
830 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]830
840 K[178][197](X$):[145]K[137]750,10
850 [128]
860 [153]"LOAD         BINOMIALKOEFFIZIENT"
870 [153]"         ==================="
880 [133]"  NATUERLICHE ZAHLEN N,K";N,K
890 B1[178]N[179]0[176][168]N[178][181](N)
900 B2[178]K[179]0[176]K[177]N[176][168]K[178][181](K)
910 [139]B1[176]B2[167][153]"FEHLEINGABE!":[137]880
920 B[178]1
930 [139]K[178]0[176]K[178]N[167]980
940 I[178]1
950 B[178]B[172](N[170]1[171]I)[173]I
960 I[178]I[170]1
970 [139]I[179][178]K[167]950
980 [153]" --->";N;"UEBER";K;"=";B
990 [153]" 1 - WEITER   2 - MENUE":
1000 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]1000
1010 K[178][197](X$):[145]K[137]860,10
1020 [153]"LOAD    KARTESISCHE --> POLARKOORDINATEN"
1030 [153]"    ================================"
1040 [153]"  KARTESISCHE KOORDINATEN   "
1050 [153]""[163]18):[133]" X=";X
1060 [153]""[163]18):[133]" Y=";Y
1070 R[178][186](X[172]X[170]Y[172]Y)
1080 [139]R[178]0[167][128]
1090 [139]X[179][177]0[167]1130
1100 [139]Y[177]0[167]W[178]90:[137]1120
1110 W[178]270
1120 [137]1160
1130 W[178]180[173][255][172][193](Y[173]X)
1140 [139]X[179]0[167]W[178]W[170]180:[137]1160
1150 [139]Y[179]0[167]W[178]W[170]360
1160 [153]"  POLARKOORDINATEN  "
1170 [153]""[163]20)"R=";R
1180 [153]""[163]20)"W=";W;"GRAD"
1190 [153]" 1 - WEITER   2 - MENUE"
1200 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]1200
1210 K[178][197](X$):[145]K[137]1020,10
1220 [153]"LOAD         PRIMFAKTORENZERLEGUNG   "
1230 [153]"         ======================"
1240 [133]"  NATUERLICHE ZAHL N=";N
1250 [153]"   -->PRIMFAKTOREN "
1260 [129] P[178]2[164][186](N)
1270 [139]P[177]3[167]P[178]P[170]1
1280 R[178]N[173]P:[139]R[177][181](R)[167]1320
1290 [153]P;
1300 N[178]R
1310 [137]1280
1320 [130]P
1330 [139]N[177]1[167][153]N;
1350 [153]:[153]" 1 - WEITER   2 - MENUE"
1360 [161]X$:[139]X$[179][177]"1"[175]X$[179][177]"2"[167]1360
1370 K[178][197](X$):[145]K[137]1220,10